﻿Public Class LandschaftstexturFelsen
    Inherits ObjektLandschaftsTextur



    Public Sub New()
        ID = "FELSEN"
        Landschaftsname = "Felsen"
        Deckung = 3
        Tarnung = False
        KP = -1
        Select Case My.Settings.TerrainStyle
            Case TerrainStyle.CommanderWars2, TerrainStyle.AdvanceWarsDC
                Groß = True
            Case Else
                Groß = False
        End Select
        TexturenLaden(New String() {"Felsen"})
        Normal = 0
        Ausrichtungslandschaften = New String() {}
        ÜbergängeLaden("Wüste")
    End Sub

    Public Overrides Sub Malen3D(ByVal p_MatCube As Microsoft.DirectX.Matrix, ByVal Landschaft As ObjektLandschaft)

    End Sub

    Public Overrides Sub Ini3D()

    End Sub

    Public Overrides Sub Tick()

    End Sub
End Class
